put disadv into line b of field "Disadvantages" of card "Work"
put (0-disadvp) into line b of field "DPoints" of card "Work"
put points-disadvp into points
put points into field "Points" of card "Work"
visual effect iris close
pop card
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=204 top=301 right=323 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
visual effect iris close
go to card "Disadvantage Card"
end mouseUp
-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=34 right=58 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name:
-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=335 top=273 right=296 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crippling Shyness
----- HyperTalk script -----
on mouseUp
global disadv,disadvp,points,killed
put "Shyness, Crippling" into disadv
put "Shyness" into AT
put 15 into disadvp
put Exclusive(AT) into result
if (result is empty) then
exit MouseUp
end if
put NextSpace(i) into b
put disadv into line b of field "Disadvantages" of card "Work"
put (0-disadvp) into line b of field "DPoints" of card "Work"
put points-disadvp into points
put points into field "Points" of card "Work"
visual effect iris close
pop card
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=178 top=273 right=296 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Severe Shyness
----- HyperTalk script -----
on mouseUp
global disadv,disadvp,points,killed
put "Shyness, Severe" into disadv
put "Shyness" into AT
put 10 into disadvp
put Exclusive(AT) into result
if (result is empty) then
exit MouseUp
end if
put NextSpace(i) into b
put disadv into line b of field "Disadvantages" of card "Work"
put (0-disadvp) into line b of field "DPoints" of card "Work"
put points-disadvp into points
put points into field "Points" of card "Work"
visual effect iris close
pop card
end mouseUp
-- part contents for card part 10
----- text -----
You are uncomfortable around strangers. This disadvantage comes in three grades: Mild, Severe, Crippling. You must roleplay your shyness! This disadvantage can be "bought off" one level at a time.
Mild Shyness: Somewhat uncomfortable around strangers, especially assertive or attractive ones, -1 on any skill that requires you to deal with the public -- in particular, Acting, Bard, Carousing, Diplomacy, Fast-Talk, Leadership, Merchant, Politics, Savoir-Faire, Sex Appeal, Streetwise, and Teaching. -5 pts.
Severe Shyness: Very uncomfortable around strangers, and tends to be very quiet even among friends. -2 on any skill that requires you to deal with the public. -10 points.
Crippling Shyness: Avoids strangers whenever possible. Incapable of public speaking. May not learn any skill that involves dealing with the public; -4 on default rolls on such skills. -15 points.